-- background: 4263 from stack: in.2
-- bmap block id: 6555
-- flags: 4000
-- background id: 0
-- name: Label


-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=28 top=54 right=101 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Label
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  hide msg
  global printstyle
  if printstyle = "with borders" then
    printrect 17,103,217,303
  else
    printrect 18,104,216,302
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=15 top=309 right=334 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=46 top=309 right=334 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=114 top=308 right=336 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=79 top=308 right=337 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=367 top=287 right=335 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add to Index
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  -- determine id of this card
  put word 7 of long name of the target into thiscard
  -- create mouseUp script to get this card
  put "on mouseUp" into line 1 of callback
  put "push card" into line 2 of callback
  put "go to card id " into line 3 of callback
  put thiscard after line 3 of callback
  put "end mouseUp" into line 4 of callback
  -- get the picture
  choose select tool
  drag from 17,103 to 216,302
  doMenu Copy Picture
  -- make the button
  go to last card of background "Index"
  choose button tool
  doMenu New Button
  -- number of button used to determine where on the index page to place
  get number of button "New Button"
  put 20 + ((it - 1) mod 4) * 120 into x
  put 80 + ((it - 1) div 4) * 120 into y
  put it into thebutton
  set showName of button "New Button" to false
  set style of button "New Button" to transparent
  set rectangle of button "New Button" to x,y,x+99,y+99
  set autoHilite of button "New Button" to false
  set script of button "New Button" to callback
  set name of button "New Button" to thiscard
  -- paste the picture
  choose select tool
  doMenu paste picture
  drag from 17,103 to 117,203 with commandKey -- shrink to half
  drag from 117,203 to x,y
  -- is the index full?
  if thebutton = 8 then
    doMenu New Card
  end if
  go to card id thiscard
  choose browse tool
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=109 top=58 right=77 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: border
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  global printstyle
  put "with borders" into printstyle
  set the hilite of bkgnd button "no border" to false
  set the hilite of bkgnd button "border" to true
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=109 top=77 right=95 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: no border
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  global printstyle
  put "without borders" into printstyle
  set the hilite of bkgnd button "border" to false
  set the hilite of bkgnd button "no border" to true
end mouseUp



-- part 26 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=240 top=60 right=283 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  put line ClickLine() of bkgnd field "Description" after card field "Contents"
  put return after card field "Contents"
end mouseUp


-- part 27 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=432 top=288 right=335 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Label
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  go to last card of background "Label"
  doMenu "New Card"
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=231 top=288 right=335 bottom=297
-- title width / last selected line: 65535
-- icon id / first selected line: -6047 / 59489
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Catalog
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  push card
  go to first card of background "volumes"
  put volumes() into field "volumes"
end mouseUp



-- part 29 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=258 top=220 right=285 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: author


-- part 31 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=299 top=288 right=335 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label Author
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  if visible of background field "author" is true
  then
  hide background field "author"
else
  show background field "author"
end if
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=152 top=309 right=334 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: add icon
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  push card
  go to first card of background "icons"
end mouseUp